home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 125 / Computer Shopper CD-ROM Issue 125 (1998-07)(Dennis Publishing).iso / EuroChem / database / classify / Topic3 / script / ID1138.Scn < prev    next >
Encoding:
Text File  |  1997-11-08  |  1.8 KB  |  115 lines

  1. 
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8. @Label Retry
  9. @question
  10. '@Erase 123,97,100,100
  11.  
  12. @At 5,220
  13. @Popup top20
  14.  
  15. @At 423,40
  16.  #[B]
  17.  
  18. @At 135,5
  19. #f1#b#crUse the bonding utility to create H#f5#<2#f1#>O.#b
  20. '@At 170,91
  21. '#bRemember#b , there are 
  22. 'two electrons to donate.
  23.  
  24.  
  25.  
  26. @At 123,25
  27. #f5#b
  28. '@At 171,246
  29. #^#.   #^Click on the #crFIRST#cb atom (O), and drag its 
  30. #t#t#crNUCLEUS#cb into the bonding panel.
  31.  
  32. #t#.  Click on the #crSECOND#cb atom (H), and drag its
  33. #t#t#crELECTRON#cb onto the outer ring of the #crFIRST#cb 
  34. #t#tatom (O)
  35.  
  36. #t#.   A popup box will appear asking you to either  
  37. #t#t#crDONATE#cb or #crSHARE#cb the #crELECTRON#cb 
  38.  
  39. #t#.   Click on #crSHARE#cb to create a #crSINGLE#cb covalent
  40. #t#tbond
  41.  
  42. #t#.   Repeat the above procedures with the #crTHIRD#cb 
  43. #t#tatom (H) 
  44.  
  45.  
  46. #t#.   Congratulations you should have created a 
  47. #t#twater molecule
  48.  
  49.  
  50. #t#.   Click on #crFORWARD#cb to see if you have bonded
  51. #t#tthe atoms correctly.
  52.  
  53.  
  54.  
  55.  
  56.  
  57. @Count 0,1,skip
  58.  
  59.  
  60.  
  61.  
  62. @PlaySoundFile ACC20_01.wav
  63.  
  64. @Animation CurieRaiseLeftArm,CurieWave,CurieWave,CurieWave,CurieWave,CurieLowerLeftArm
  65.  
  66. @WaitForSoundToFinish
  67. @PlaySoundFile ACC20_02.wav
  68.  
  69. @Label skip
  70.  
  71.  
  72.  
  73.  
  74. @At 429,295
  75. @Answer H2O
  76.  
  77.  
  78. @Feedback Wrong
  79. @Count 0,1,Wrongsecondtime
  80. @Count 1
  81. #bTry Again.#b
  82. @Animation CurieRaiseLeftArm,CurieWave,CurieLowerLeftArm
  83. @PlaySoundFile ACB40_05.wav
  84. @Goto Retry
  85.  
  86.  
  87. @Feedback Correct
  88.  
  89. @Animation CurieRaiseLeftArm,CurieWave,CurieLowerLeftArm
  90. @PlaySoundFile ACC20_05.wav
  91. #bWell Done!#B
  92.  
  93. @Goto Done
  94.  
  95. @Label Wrongsecondtime
  96. '@Erase 135,209,460,60
  97. @Animation CurieRaiseLeftArm,CurieWave,CurieLowerLeftArm
  98. @At 135,300
  99. #bNo#b, take a look at the correct answer above.
  100.  
  101. @Erase 122,24,300,300
  102. @AtGraphic 170,38
  103. @Picture ACC20_T1.BMP
  104.  
  105. @PlaySoundFile *abc20_04.wav
  106.  
  107.  
  108. @Label Done
  109.  
  110.  
  111. @Label Done
  112.  
  113. l Done
  114.  
  115.